home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / bprep101.zip / SAMPLE.B < prev    next >
Text File  |  1991-09-18  |  1KB  |  49 lines
  1. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. ' Sample.b : Sample input file to demonstrate BPREP
  3. '
  4. '
  5. '
  6. '
  7. #include sample.inc
  8.  
  9. #define SHAREWARE
  10. '#define REGISTERED
  11.  
  12. #define HEADER          "Super List [c] 1991 HOME-SPUN Technologies!"+CR+LF+LF
  13. #define USAGE           "USAGE: List <filename>"       ' Usage string
  14.  
  15. #define LIST_FILE       1                              ' list file number
  16.  
  17. '
  18. '  A simple delay, change DELAY_T for different delay times
  19. '
  20. #define DELAY_T 10000
  21. #define DELAY for x=1 to DELAY_T:for y = 1 to DELAY_T:z=z*2:next y:next x
  22.  
  23. '
  24. ' Main program follows
  25. '
  26. print HEADER
  27.  
  28. if command$ = "" then print USAGE : system
  29.  
  30. open command$ for input as #LIST_FILE
  31.  
  32. do until eof(LIST_FILE)
  33.  
  34.         input #LIST_FILE, line$
  35.         print line$
  36.  
  37. loop
  38.  
  39. #ifdef SHAREWARE
  40. print "To remove this delay and message register today!"
  41. print "        thankyou for using shareware!"
  42. DELAY
  43. #endif
  44.  
  45. #ifdef REGISTERED
  46. print
  47. print
  48. #endif
  49.